Option Explicit
Sub E_Sample019()
   'ո E_Data01u@g
    Dim myRng As Range
    Dim mySht As Worksheet
    Set myRng = _
    Worksheets("E_Data01").Range("A1").CurrentRegion	'ӷd
    With Worksheets
        Set mySht = .Add(After:=.Item(.Count))
    End With
    With myRng
        .AutoFilter Field:=3, Criteria1:="=s*"		'ƪw
        On Error Resume Next
            .Resize(.Rows.Count - 1).Offset(1) _
            .SpecialCells(xlCellTypeVisible).Copy _
            mySht.Range("A1")				'wgؼ
            .AutoFilter
            If Err.Number <> 0 Then
                Application.DisplayAlerts = False
                mySht.Delete
                Application.DisplayAlerts = True
            End If
        On Error GoTo 0
    End With
    Set myRng = Nothing			'
    Set mySht = Nothing
End Sub
